home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 12 / Developer Source Volume 12 (I-MODE Publications, Inc.)(1999).iso / orinf / may96 / hoskf112.gif

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  8KB  |  589x287  |  4-bit (12 colors)

Labels: text | screenshot | display | software | computer icon | number | web page | operating system | font
OCR: IstContacts Properties D PostChange Sub PostChange0 REM Force the list to highlight the name of the contact displayed by the Form. IF NOT IsNull ( Value ) THEN DIM rec AS Object DIM rContactID AS Integer rec = frmContact. GetRecordset () rNumRows = rec. GetRowCount ( ) FOR i = 1 TO rNumRows rec. Set CurRow( i ) rContactID = CINT ( rec. GetColVal( "CONTACTID" ) ) IF rContactID = CINT ( Value ) THEN EXIT FOR NEXT i END IF

---